home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / tstparse / main.dfm / main.txt
Text File  |  1996-09-15  |  11KB  |  441 lines
  1. object MainForm: TMainForm
  2.   Left = 56
  3.   Top = 168
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsDialog
  6.   Caption = 'BisonWare File Parser Control V6.0 - Demonstration Program'
  7.   ClientHeight = 359
  8.   ClientWidth = 491
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = [fsBold]
  13.   PixelsPerInch = 96
  14.   OnActivate = FormActivate
  15.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object TabbedNotebook1: TTabbedNotebook
  18.     Left = 8
  19.     Top = 4
  20.     Width = 477
  21.     Height = 349
  22.     PageIndex = 3
  23.     TabsPerRow = 4
  24.     TabFont.Color = clBtnText
  25.     TabFont.Height = -11
  26.     TabFont.Name = 'MS Sans Serif'
  27.     TabFont.Style = []
  28.     TabOrder = 0
  29.     object TTabPage
  30.       Left = 5
  31.       Top = 26
  32.       Caption = 'Pascal Parse'
  33.       object Label1: TLabel
  34.         Left = 8
  35.         Top = 8
  36.         Width = 381
  37.         Height = 53
  38.         AutoSize = False
  39.         Caption = 
  40.           'This page demonstrates how the BisonWare Parser can be used to p' +
  41.           'arse a Pascal source file into a series of records.  The semicol' +
  42.           'on (;) is set as the record delimiter.  Leading, Trailing && Mul' +
  43.           'tiple spaces are ignored.  Line feeds are ignored. '
  44.         Font.Color = clBlack
  45.         Font.Height = -11
  46.         Font.Name = 'MS Sans Serif'
  47.         Font.Style = []
  48.         ParentFont = False
  49.       end
  50.       object LB1: TListBox
  51.         Left = 8
  52.         Top = 84
  53.         Width = 453
  54.         Height = 229
  55.         Font.Color = clBlack
  56.         Font.Height = -11
  57.         Font.Name = 'MS Sans Serif'
  58.         Font.Style = []
  59.         ItemHeight = 13
  60.         ParentFont = False
  61.         TabOrder = 0
  62.       end
  63.       object Button1: TButton
  64.         Left = 396
  65.         Top = 8
  66.         Width = 65
  67.         Height = 33
  68.         Hint = 'Press to begin the Pascal Parse'
  69.         Caption = '&Parse'
  70.         Font.Color = clBlack
  71.         Font.Height = -11
  72.         Font.Name = 'MS Sans Serif'
  73.         Font.Style = []
  74.         ParentFont = False
  75.         ParentShowHint = False
  76.         ShowHint = True
  77.         TabOrder = 1
  78.         OnClick = Button1Click
  79.       end
  80.       object CheckBox2: TCheckBox
  81.         Left = 8
  82.         Top = 64
  83.         Width = 205
  84.         Height = 17
  85.         Caption = 'Ignore Pascal Comments'
  86.         Font.Color = clBlack
  87.         Font.Height = -11
  88.         Font.Name = 'MS Sans Serif'
  89.         Font.Style = []
  90.         ParentFont = False
  91.         State = cbChecked
  92.         TabOrder = 2
  93.         OnClick = CheckBox2Click
  94.       end
  95.     end
  96.     object TTabPage
  97.       Left = 5
  98.       Top = 26
  99.       Caption = 'Comma Seperated'
  100.       object Label2: TLabel
  101.         Left = 8
  102.         Top = 8
  103.         Width = 381
  104.         Height = 45
  105.         AutoSize = False
  106.         Caption = 
  107.           'This page demonstrates how the BisonWare Parser can be used to p' +
  108.           'arse a comma seperated file.  The output is displayed within a s' +
  109.           'tring list but can just as easily be stored within a database fi' +
  110.           'le.'
  111.         Font.Color = clBlack
  112.         Font.Height = -11
  113.         Font.Name = 'MS Sans Serif'
  114.         Font.Style = []
  115.         ParentFont = False
  116.       end
  117.       object Button2: TButton
  118.         Left = 396
  119.         Top = 8
  120.         Width = 65
  121.         Height = 33
  122.         Hint = 'Press to begin the CSV Parse'
  123.         Caption = '&Parse'
  124.         Font.Color = clBlack
  125.         Font.Height = -11
  126.         Font.Name = 'MS Sans Serif'
  127.         Font.Style = []
  128.         ParentFont = False
  129.         ParentShowHint = False
  130.         ShowHint = True
  131.         TabOrder = 0
  132.         OnClick = Button2Click
  133.       end
  134.       object SG1: TStringGrid
  135.         Left = 12
  136.         Top = 76
  137.         Width = 445
  138.         Height = 125
  139.         FixedCols = 0
  140.         Font.Color = clBlack
  141.         Font.Height = -11
  142.         Font.Name = 'MS Sans Serif'
  143.         Font.Style = []
  144.         ParentFont = False
  145.         ScrollBars = ssNone
  146.         TabOrder = 1
  147.         ColWidths = (
  148.           129
  149.           70
  150.           31
  151.           113
  152.           102)
  153.       end
  154.       object CheckBox1: TCheckBox
  155.         Left = 12
  156.         Top = 208
  157.         Width = 133
  158.         Height = 17
  159.         Caption = 'Trim text qualifiers'
  160.         State = cbChecked
  161.         TabOrder = 2
  162.         OnClick = CheckBox1Click
  163.       end
  164.       object GroupBox1: TGroupBox
  165.         Left = 12
  166.         Top = 232
  167.         Width = 129
  168.         Height = 81
  169.         Caption = 'Case Conversion'
  170.         TabOrder = 3
  171.         object radUpper: TRadioButton
  172.           Left = 8
  173.           Top = 56
  174.           Width = 113
  175.           Height = 17
  176.           Caption = 'Upper Case'
  177.           Font.Color = clBlack
  178.           Font.Height = -11
  179.           Font.Name = 'MS Sans Serif'
  180.           Font.Style = []
  181.           ParentFont = False
  182.           TabOrder = 0
  183.         end
  184.         object radLower: TRadioButton
  185.           Left = 8
  186.           Top = 36
  187.           Width = 113
  188.           Height = 17
  189.           Caption = 'Lower Case'
  190.           Font.Color = clBlack
  191.           Font.Height = -11
  192.           Font.Name = 'MS Sans Serif'
  193.           Font.Style = []
  194.           ParentFont = False
  195.           TabOrder = 1
  196.         end
  197.         object radNone: TRadioButton
  198.           Left = 8
  199.           Top = 16
  200.           Width = 113
  201.           Height = 17
  202.           Caption = 'None'
  203.           Checked = True
  204.           Font.Color = clBlack
  205.           Font.Height = -11
  206.           Font.Name = 'MS Sans Serif'
  207.           Font.Style = []
  208.           ParentFont = False
  209.           TabOrder = 2
  210.           TabStop = True
  211.         end
  212.       end
  213.     end
  214.     object TTabPage
  215.       Left = 5
  216.       Top = 26
  217.       Caption = 'Memory Parse'
  218.       object Label9: TLabel
  219.         Left = 8
  220.         Top = 8
  221.         Width = 381
  222.         Height = 45
  223.         AutoSize = False
  224.         Caption = 
  225.           'This page demonstrates how a BisonWare file parser can be used t' +
  226.           'o parse a text string stored in memory.  Type a string into the ' +
  227.           'memo area on the left and press the parse button to break the se' +
  228.           'ntence down into individual words.'
  229.         Font.Color = clBlack
  230.         Font.Height = -11
  231.         Font.Name = 'MS Sans Serif'
  232.         Font.Style = []
  233.         ParentFont = False
  234.       end
  235.       object Button3: TButton
  236.         Left = 396
  237.         Top = 8
  238.         Width = 65
  239.         Height = 33
  240.         Hint = 'Press to begin the Memory Parse'
  241.         Caption = '&Parse'
  242.         Font.Color = clBlack
  243.         Font.Height = -11
  244.         Font.Name = 'MS Sans Serif'
  245.         Font.Style = []
  246.         ParentFont = False
  247.         ParentShowHint = False
  248.         ShowHint = True
  249.         TabOrder = 0
  250.         OnClick = Button3Click
  251.       end
  252.       object memInput: TMemo
  253.         Left = 12
  254.         Top = 56
  255.         Width = 213
  256.         Height = 253
  257.         Lines.Strings = (
  258.           'this is    a  line "of text" which'
  259.           'is used to test the'
  260.           ''
  261.           ''
  262.           'BisonWare Parsers '
  263.           ''
  264.           #39'memory parsing capabilities'#39)
  265.         TabOrder = 1
  266.       end
  267.       object LB2: TListBox
  268.         Left = 240
  269.         Top = 56
  270.         Width = 213
  271.         Height = 253
  272.         ItemHeight = 13
  273.         TabOrder = 2
  274.       end
  275.     end
  276.     object TTabPage
  277.       Left = 5
  278.       Top = 26
  279.       Caption = 'Registration'
  280.       object Label3: TLabel
  281.         Left = 12
  282.         Top = 12
  283.         Width = 437
  284.         Height = 34
  285.         Caption = 'BisonWare Parser Control V6.0'
  286.         Font.Color = clBlue
  287.         Font.Height = -29
  288.         Font.Name = 'Arial'
  289.         Font.Style = [fsBold, fsItalic]
  290.         ParentFont = False
  291.       end
  292.       object Label4: TLabel
  293.         Left = 80
  294.         Top = 52
  295.         Width = 310
  296.         Height = 16
  297.         Caption = 'Register this Delphi custom control via compuserve :'
  298.         Font.Color = clBlack
  299.         Font.Height = -13
  300.         Font.Name = 'MS Sans Serif'
  301.         Font.Style = []
  302.         ParentFont = False
  303.       end
  304.       object Label5: TLabel
  305.         Left = 108
  306.         Top = 76
  307.         Width = 261
  308.         Height = 16
  309.         Caption = 'Parser control : Go SWREG #8054 for $10.00'
  310.         Font.Color = clBlack
  311.         Font.Height = -13
  312.         Font.Name = 'MS Sans Serif'
  313.         Font.Style = []
  314.         ParentFont = False
  315.       end
  316.       object Label6: TLabel
  317.         Left = 52
  318.